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EDTSWORDWRAP = do word wrappin 18-Se 1984 02:17:1 VAX-11 Bliss-32 V4.0-74 Page 1. EDT 
si: 12-8081 382 EL: DLEKSVMGHASTERSCEDT SRC SWORDURAP.BLIG]® (1) v04 
001 ZTITLE ‘ED hee ose oy - do word wrapping’ : 
0 § MODULE EDTSWORDWRAP ( ! Do word wrapping : 
%? ? “DENT = 'v04-000' ! File: WORDWRAP.BLI Edit: SMB1004 | : 
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BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE ae MAY BE USED AND COPIED 
DANCE H F LICE 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
bs emPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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144 : 
i FACILITY: EDT -- The DEC Standard Editor 

i ABSTRACT: 


This module trys to do word wrapping after an insert. 
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' 
i] 
' 
1 
‘ 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: John Sauter, CREATION DATE: April 7, 1982 
i] 
' 
] 
1 
' 
i 
i] 


0039 

0040 

0041 

Ope ' MODIFIED BY: 

0044 1-001 = Original. JBS 07-Apr-1982 

0045 1-002 - New screen update logic. JBS 13-Sep-1982 

0046 1-003 - Add a parameter to split Line routine. SMB tang 982 

sit 1-004 = Change the parameter to the split Line routine. SMB 17-Nov-1982 
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N 1 
| EDTSWORDWRAP EDTSWORDWRAP = do word wrappin 16-Sep-1984 17:1 VAX=-11 Bliss-32 V4.0-74 Pa 3 
“06-000 EDTS$WORD_WRAP = do word wranptne 12-8 08- 1 3be eA: PE EKSUMGHASTERSCEDT Sac SVORDURAP.BLIG;?” (3) | 
| 
ls : 06 ‘ MSBITL "EDTSSWORD_WRAP = do word wrapping’ | : 
F 86 065 1 GLOBAL ROUTINE EDTSSWORD,WRAP ! Do word wrapping 
(f 88 0658 1 : 
ls 89 0659 1 !44 ‘ 
3 30 0660 i FUNCTIONAL DESCRIPTION: | : 
- 9 0662 1! This routine is called after text has been inserted to do word wrapping F 
; 4 Beer : if any is called for. | : 
E 95 0665 | FORMAL PARAMETERS: | 
ob a ee a 
i 199 0669 1 | IMPLICIT INPUTS: | 
> 101 0671 1! EDTSST_LN_BUF | ; 
; 16 0672 1! EDTSSA_LN_PTR : 
: 10 0673 1: EDTS$A_LN-END : 
3 ise pore : EDT$$G_WD_WRAP . 
: 196 0676 ! IMPLICIT OUTPUTS: | 
: 198 3 os ome 
: 110 0680 ROUTINE VALUE: | 2 
: 112 0682 1 Always 1. | 
; 114 0684 SIDE EFFECTS: 3 
: 1g ee i Mone 
: 118 0688 1 i-- | : 
: 119 0689 1 ; 
a mi 7 
Py | e 
> 122 0692 2 EXTERNAL ROWTINE | : 
; 123 0693 2 EDTSSFM2_CHWID, : 
> 124 0694 2 EDTS$CS_ : 
: 125 0695 EDT$$CS-RIGHT, | 3 
> 126 0696 EDTS$$FND_BwD | : 
; 127 0697 EDT$S$SPLT_LNINS; | : 
: 129 0699 3 EXTERNAL ; 
3; 130 0700 EDTSST_LN_BUF, ' Current Line buffer. : 
s 351 0701 2 EDTSSA_LN_PTR, ' Current character pointer. 3 
; ie O 708 EDTSS$A_LN_END : End of current Line pointer. : 
; 133 9705 EDT$$G_WD_WRAP; i Word wrap point. | : 
: 135 0705 LOCAL | ; 
: 137 69 SAVE_POINT, ; 
> 138 708 DIFF? | : 
: 139 709 COL; | ; 
: 160 0710 | ; 
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WORDWRAP = do word wrappin 


SWORD_WRAP = do 


'4 


word wrapping 


Do nothing if there is no word wrapping. 


IF (.EDTS$G_WD_WRAP NEQ 256) 
THEN 
BEGIN 
Compute the current cursor position. 


14 


'+ 


END; 


A PIPRIDNIANE BEBE HEEL EE EWE WI 


4 
00000100 ' 


COL 

CP = 

WHILE CHSPTR_NEQ 
co 


RETURN (1); 
END; 


= 0; 
CHSPTR (EDT$$T_LN_BUF); 


-EDTSSA_LN_PTR 


(.CP ) DO 
L = .COL + EDTSS$FMT_CHWID (CHSRCHAR_A (CP), .COL); 


! If the current column is beyond the wrap point, wrap the Linz. 


IF (.COL GTR .EDTS$G_WD_WRAP) 
THEN 


BEGIN 
SAVE POINT = .EDT$SA_LN_PTR; 
EDTSSCS_LEFT (); 


IF (CHSRCHAR (.EDTS$$A_LN_PTR) EQL %C* ') THEN EDTSS$CS_RIGHT () ELSE EDTSSFND_BWD (1); 
DIFF = CHSDIFF (.SAVE_POINT, .EDT$$A_LN_PTR); 

IF CHSPTR_NEQ (.EDTSSA_LN_PTR, CHSPTR (EDT$SS$T_LN_B\IF)) THEN EDTSSSPLT_LNINS (1): 
EDTSSA_LN_PTR = CHSPLUS (.EDTSSA_LN_PTR, .DIFF); 


! of routine EDTSSWORD_WRAP 


-TITLE EDTSWORDWR4P EDTSWORDWRAP - do word wrapping 
-IDENT \v04-000\ 
-EXTRN EDTSSFMT_CHWID, EDTSSCS_LEFT 
-EXTRN EDTSS$CS_RIGHT, EDTSSFND_BWD 
.EXTRN EDTSSSPCT_LNINS 
-EXTRN EDTSS$T_LN_-BUF, EDTSSA_LN_PTR 
EXTRN EDTS$A“LN-END, EDT$$G_WD"WRAP 
-PSECT _EDTSCODE.NUWRT, SHR, PIC,2 
007¢. 90 -ENTRY EDTSSWUORD_WRAP, Save R2,R3,R4,R5,R6 
g 68 6° G 9E 8 MOVAB EDTS$G_WD_WRAP, R6 
6 G 9E MOVAB EDTS$$T"LNBUF, 
00000006 9€ 0001 MOVAB EDTS$SATLN7PTR, R4 
66 D1 0001 CMPL  EDT$S$SG"WD"WRAP, #256 


! Use optimi 


at at i 


2 
EDTSWORDWRAP EDTSWORDWRAP = do word wrappin ibese -1984 17:1 VAX-11 Bliss-32 V4.0-74 P 
v04-000 EDTS$WORD_WRAP = do word wrapping 12-8 08- 1 3be 96:32) NTEKSUMGMASTERSCEDT  SRCSVORDURAP.BLIn4?* (33 V04- 
35 i OB¢ ore Re E9701 | 4 
52 : ve § MOVAB EDTSS$T LN BUF, CP t 0722 | ; } 
64 2 0 0 1$ CMPL cP EDTS$$A_LN.PTR t 0724) : 
11 13 8 BEQL t : : ! 
53 po O2A PUSHL COL ; 0725 . 4 
7E B2 9A 0000C MOVZBL (CP) -(SP) ; | 4 
000000006 99 : EB 00 F CALLS #2, EOTSSFMT_CHWID : 1 
5 C 0 3 ADDL RO, COL : . 4 
A 11 000 BRB 1$ 3 ‘ 
66 3 D1 00038 2$ CMPL COL, EDT$$G_WD_WRAP + 0731) . ) 
— 15 000% BLEQ 6$ : ee. 
52 64 00 0004 MOVL EDTSS$A_LN_PTR, SAVE_POINT > 0734, 
| 000000006 00 0) FB 00045 CALLS #0, EDTS$CS_LEFT : 0735 | 
50 64 DO 0004A MOVL EDTS$$A_LN_PTR, RO : 0737 
20 60 91 0004D CMPB—s-« (RO), #32 : | 
09 12 00050 BNEQ 3$ : 
000000006 00 00 FB 00052 CALLS #0, EDT$$CS_RIGHT : | 
99 11 0005 BRB 4$ : 
01 oD 00058 3$ PUSHL #1 : 
000000006 00 01 FB 0005D CALLS #1, EDTSS$FND_BwD : 
51 64 DO 00064 4$ MOVL  EDTS$$A_LN_PTR, R1 : 0739 
52 51 C2 00067 SUBL2 1, D ; 
50 65 SE 0006A MOVAB EDTS$ST_LN_BUF, RO + 0741 
50 51 D1 0006D CMPL RI, RO F 
09 13 00070 BEQL 5$ ; 
01 OD 00072 PUSHL #1 ; 
000000006 00 01 FB 00074 CALLS #1, EDTS$$SPLT_LNINS : 
64 52 CO 0007B 5$: ADDL2 DIFF, EDTS$A_CN_PTR > 0743 
50 01 DO OOO7E 6S: MOVL #1, RO + 0748 
04 00081 RET : 0749 


0 1 
1 1 !<BLF/PAGE> 


; Routine Size: 130 bytes, Routine Base: _EDTSCODE + 0000 | 
75 | 
75 | 


3; Size 130 code + 
; Run Time: 00:11.6 
; Elapsed Time: 00:14.9 
3; Lines/CPU Min: at 

; Lexemes/CPU-Min: 1098 

3 aeaeey Used: 74 pages 

: Compilation Complete 


dD 2 
EDTSWORDWRAP EDTSWORDWRAP = do word wrapping 16-Sep- 1386 9: :17:1 VAX-11 Bliss-32 V4. ae Page 
v04-000 EDTSSWORD_WRAP = do word wrapping 14- abep= 9 25:4 DISKSVMSMAS TER: CEDT OSRe WORDWRAP.BLI;1 
; 183 7 3 1 END ! of module EDTSWORDWRAP 
; «184 7 
>; «6185 754 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 130 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
eae tao a ee aay Oe eg Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJED 31 377 1 0 40 00:00.2 
> ~$255$DUA28:CEDT.SRCIPS L32;1 2 1 5 7 00:00.1 
3 COMMAND QUALIFIERS 
; CL Tb / CHE CROCE SELD , BME TIAL. GPT ERE LED /UDTRACERACEAL 1 Sak 15D: NORDURAP/ER)2CBIS :MORDURAP MSRC$:WORDWRAP.BLI/UPDATE=(ENH$: WORD 
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